Top 10k strings from Pipe Line (1992)(Dominic Morris).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   2 s,t;q$(u,1
   2 p$(n,m)-48
   1 time=time-5
   1 sc < s(j-1
   1 s(flag)=sc:
   1 s$(flag)=""
   1 reqd=reqd+5
   1 p$(n)="111111111":
   1 p$(fls,flt)=
   1 p$(fls,flt)<"@"
   1 p$(fls,flt)+16
   1 got=reqd+(2
   1 fly=fly+flyp:
   1 flx=flx+flxp:
   1 flow=flow+1
   1 c$="`abcdefghijkuvwlmnopqijkrst"
   1 beep .01,bl/3
   1 b$="@ABCDEFGHIJKUVWLMNOPQIJKRST":
   1 a,b;q$(c,1
   1 a$=" !""#$%&'()*+567,-./01)*+234":
   1 WRITTEN BY
   1 SET UP ARRAYS
   1 SCREEN SET UP
   1 SAVE PROGRAM & CODE
   1 REPLACE BLOCK
   1 REDRAW PIPE SCREEN
   1 PLACE BLOCK ON SCREEN
   1 PLACE BLOCK
   1 PIPE.COD  
   1 PIPE DREAM
   1 PIPE      
   1 NO MORE BLOCKS!
   1 HIGHLIGHTER
   1 FREEWARE MAY 1992
   1 ENTRY POINT
   1 END OF GAME/MENU
   1 DOMINIC MORRIS
   1 ;s$(n);"      ";
   1 ;q$(q(m),3
   1 ;q$(q(m),2
   1 ;q$(q(m),1
   1 ;"SINCLAIR";
   1 ;"SINCLAIR"
   1 ;"SCORE 000000  HI 000000  BL";
   1 ;"PIPE LINE";
   1 ;"OPTIONS";
   1 ;"KEYBOARD";
   1 ;"KEYBOARD"
   1 ;"HIGH SCORES"
   1 ;"FREEWARE"
   1 ;"FIRE  ";:
   1 ;"Directly inspired by Pipe Mania"'"published by The Assembly Line";
   1 ;"4.  DEFINE KEYS";
   1 ;"3.  SINCLAIR";
   1 ;"2.  KEYBOARD";
   1 ;"1.  START GAME";
   1 ;"  WRITTEN BY D MORRIS, MAY 1992"'"      THIS GAME IS ";
   1 ,"NOONE",5000
   1 ,"NOONE",4000
   1 ,"NOONE",3000
   1 ,"NOONE",25000
   1 ,"NOONE",20000
   1 ,"NOONE",15000
   1 ,"NOONE",10000
   1 *** SET UP TABLE
   1 *** KEY INPUT
   1 *** HISCORE TABLE
   1 (fly,flx):
   1 "m:util1.scr"
   1 "PIPE.COD" 
   1 "PIPE.COD"
   1 "NOONE",30000
   1 "@VB","CID","ELG"
   1 "@MB","JPD","EFG"
   1 "@MB","JNK","ELG"
   1 "@MB","COK","EFG"
   1 "@MB","CID","EWG"
   1 "@MB","CID","ELG"
   1 "@AB","THK","EFG"
   1 "@AB","JRD","ELG"
   1 "@AB","JHU","EFG"
   1 "@AB","JHK","EFG"
   1 "@AB","CQK","ELG"
   1 "6";"DOWN  ";:
   1 "11";"DEFINE KEYS";
   1 "10";"UP    ";:
   1 "10";"RIGHT ";:
   1 "10";"LEFT  ";: